home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / taiheiki / test3.bas < prev    next >
BASIC Source File  |  1994-06-01  |  701b  |  30 lines
  1. 10  CLS:SCREEN @0:VIEW:PALETTE
  2. 20  DIM BUN$(87):NO=0
  3. 30  OPEN "I",#1,"RAKUSYO.DAT"
  4. 40  WHILE EOF(1)=0
  5. 50   INPUT#1,BUN$
  6. 60   BUN$(NO)=BUN$
  7. 70   NO=NO+1
  8. 80  WEND
  9. 90  CLOSE#1
  10. 100  FOR A=0 TO 87 STEP 2
  11. 110   Q1=KLEN(BUN$(A),2)
  12. 120   Q2=KLEN(BUN$(A+1),2)
  13. 130   FOR N=1 TO Q1
  14. 140   A$=KMID$(BUN$(A),N,1)
  15. 150   SYMBOL (623-A*7,N*14+70),A$,.8!,.8!,%15,0:WAIT 10
  16. 160   NEXT
  17. 170   WAIT 30
  18. 180   FOR N=1 TO Q2
  19. 190   A$=KMID$(BUN$(A+1),N,1)
  20. 200   SYMBOL (623-A*7,N*14+260),A$,.8!,.8!,%15,0:WAIT 10
  21. 210   NEXT
  22. 220   WAIT 30
  23. 230  NEXT
  24. 240  A$="二条河原落書"
  25. 250  Q=KLEN(A$,2)
  26. 260  FOR N=1 TO Q
  27. 270   B$=KMID$(A$,N,1)
  28. 280   SYMBOL (623-88*7,N*14+350),B$,.8!,.8!,%15,0:WAIT 10
  29. 290  NEXT
  30.